home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 December / macformat-019.iso / Shareware City / Applications / LabHelper 4.01 Folder / LabHelper 4.01 / LabHelper 4.01.rsrc / LENS_129_Find < prev    next >
Encoding:
Text File  |  1994-08-24  |  6.3 KB  |  133 lines
  1. ItemType: WIND
  2. Rect: 145,80,495,282
  3. Style: Windoid
  4. HasTitleBar: TRUE
  5. HasZoomBox: TRUE
  6. HasCloseBox: TRUE
  7. HasGrowBox: FALSE
  8. MinSize: 350,0
  9. MaxSize: 350,202
  10. Name: Find
  11. WhiteColor: -8739,-8739,-8739
  12. Script: --on windowEvent  --wdID,wdName,objNo,objName,objValue¬if objValue="Open" then ¬  get licenseCheck()¬  wsSet wdID,"3","Text", ""¬  wsSet wdID,"5","Text", ""¬  wsSet wdID,"8","Value", "0"¬  wsSet wdID,"11","Hilite", "FALSE"¬  wsSet wdID,"14","Text", ""¬  wsSet wdID,"0","Height", "202"¬end if¬--end windowEvent¬¬
  13. Params: i0_Use this window
  14.  
  15. ItemType: PUSH
  16. Rect: 282,176,339,196
  17. AutoSize: FALSE
  18. Name: Find
  19. DefaultItem: TRUE
  20. Balloon: Click on this button to invoke the search.
  21. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬wsSet wdID,"11","Hilite", "FALSE"¬put empty into searchFor¬put empty into buildList¬wsSet wdID,"5","Text", ""¬wsSet wdID,"14","Text", ""¬get wsGet(wdID,"3","Text")¬put it into searchFor¬if searchFor ≠ empty then¬  wsSet wdID,"2","Disabled", "true"¬  put the number of cards in this stack into x¬  wsSet wdID,"8","Max", x¬  lock screen¬  if x > 1 then¬    put the number of this card into returnPoint¬    go to the first card of this stack¬  end if¬  wsSet wdID,"8","Value", "1"¬  find searchFor¬  if the result is not empty then¬    put "No occurrences found..." into buildList¬  else¬    put the id of this card into LoopCheck¬    put the foundText&"◊"&&the short name of this cd&return after buildList ¬    go next cd¬    put the number of this cd into i¬    wsSet wdID,"8","Value", i  ¬    put empty into currID¬    repeat until currID = LoopCheck¬      find searchFor   ¬      put the id of this card into currID¬      if currID = LoopCheck then ¬        exit repeat¬        wsSet wdID,"8","Value", x¬      end if     ¬      put the foundText&"◊"&&the short name of this cd&return after buildList¬      put the number of this cd into i¬      wsSet wdID,"8","Value", i  ¬      go next cd¬    end repeat¬  end if¬  if the number of lines in buildList > 1 then¬    delete the last char of buildList¬    put fullSort(buildList,"t=u","d=a") into buildList¬  end if¬  put the number of lines in buildList into theLines¬  wsSet wdID,"8","Value", x¬  wsSet wdID,"2","Disabled", "false"¬  wsSet wdID,"5","Text", buildList¬  wsSet wdID,"14","Text", theLines¬  if x > 1 then go to card returnPoint¬  wsSet wdID,"8","Value","0"¬  unlock screen¬end if¬wsSet wdID,"2","Disabled", "FALSE"¬--end mouseUp¬¬¬
  22.  
  23. ItemType: PUSH
  24. Rect: 215,177,275,197
  25. AutoSize: FALSE
  26. Name: Cancel
  27. CancelItem: TRUE
  28. AutoClose: TRUE
  29. Balloon: Click on this button to cancel the search.
  30.  
  31. ItemType: TEXT
  32. Rect: 37,15,314,37
  33. TextFont: LabHelper
  34. TextSize: 12
  35. Name: userEnter
  36. WhiteColor: -13108,-1,-1
  37. LockText: FALSE
  38. Balloon: Enter string to find here.
  39. Script: --on closeField  wdID,wdName,objNo,objName,objValue¬--end closeField
  40.  
  41. ItemType: LBL
  42. Rect: 8,40,191,52
  43. TextFont: Geneva
  44. TextSize: 9
  45. Text: String Found                         Card Name
  46.  
  47. ItemType: LIST
  48. Rect: 8,56,342,170
  49. TextFont: LabHelper
  50. TextSize: 12
  51. Name: path
  52. WhiteColor: -13108,-1,-1
  53. Style: ListWithTabs...
  54. StyleInfo: ...............>
  55. Logic: Single
  56. KeyScroll: TRUE
  57. Text: 
  58. Balloon: All occurrences found.
  59. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬put the name of this card into imHere¬get wsGet(wdID,"5","selectionText")¬if it = empty or it = "no occurrences found..."  then¬  beep¬  wsSet wdID,"11","Hilite", "FALSE"¬else¬  delete word 1 of it¬  put it into goTo¬  if goTo ≠ imHere then¬    if word 1 of goTo = "card" then¬      do "go to goTo"¬    else¬      do "go to card goTo"¬    end if¬    find searchFor¬  end if¬  if the marked of this cd is true then¬    wsSet wdID,"11","Hilite", "TRUE"¬  else¬    wsSet wdID,"11","Hilite", "FALSE"¬  end if¬end if¬--end mouseUp¬¬¬¬¬
  60.  
  61. ItemType: LBL
  62. Rect: 7,18,40,31
  63. TextFont: Geneva
  64. TextSize: 10
  65. TextStyle: Bold
  66. Text: Find:
  67.  
  68. ItemType: PUSH
  69. Rect: 152,177,212,197
  70. AutoSize: FALSE
  71. Name: Clear
  72. Balloon: Clear all.
  73. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬wsSet wdID,"3","Text", ""¬wsSet wdID,"5","Text", ""¬wsSet wdID,"8","Value", "0"¬wsSet wdID,"11","Hilite", "FALSE"¬wsSet wdID,"14","Text",""¬--end mouseUp
  74.  
  75. ItemType: CNTL
  76. Rect: 29,2,310,13
  77. Disabled: TRUE
  78. BlackColor: 0,0,-4370
  79. WhiteColor: -13108,-1,-1
  80. Name: Completed
  81. Style: 320
  82. Min: 0
  83. Max: 100
  84. Value: 0
  85. Step: 1
  86. Leap: 10
  87. Balloon: Progress indicator.
  88.  
  89. ItemType: TEXT
  90. Rect: 8,2,27,14
  91. TextFont: Geneva
  92. TextSize: 9
  93. WhiteColor: -8739,-8739,-8739
  94. Text: 0%
  95.  
  96. ItemType: TEXT
  97. Rect: 313,2,344,14
  98. TextFont: Geneva
  99. TextSize: 9
  100. Name: 100%
  101. WhiteColor: -8739,-8739,-8739
  102. Text: 100%
  103.  
  104. ItemType: CHK
  105. Rect: 285,40,342,52
  106. TextFont: Geneva
  107. TextSize: 9
  108. Name: Marked
  109. Balloon: Click on this button to mark or unmark selected record.
  110. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬get wsGet(wdID,"5","selectionText")¬if it = empty or it = "no occurrences found..."  then¬  beep¬  wsSet wdID,"11","Hilite", "FALSE"¬else¬  if the marked of this cd is true then¬    unmark this card¬    wsSet wdID,"11","Hilite", "FALSE"¬  else¬    mark this card¬    wsSet wdID,"11","Hilite", "TRUE"¬  end if¬  openCard¬end if¬--end mouseUp¬
  111.  
  112. ItemType: PUSH
  113. Rect: 6,177,69,197
  114. AutoSize: FALSE
  115. Name: Mark All
  116. Balloon: Click on this button to mark all listed records.
  117. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬get wsGet(wdID,"5","Text")¬put it into cardsFound¬if cardsFound = empty or cardsFound = "no occurrences found..." then¬  beep¬else¬  unmark all cds¬  repeat with x=1 to the number of lines in cardsFound¬    delete word 1 of line x of cardsFound¬    put line x of cardsFound into goTo¬    if word 1 of goTo = "card" then¬      set the marked of goTo to true¬    else¬      set the marked of card goTo to true¬    end if¬  end repeat¬  wsSet wdID,"11","Hilite", "TRUE"¬  wsSet wdID,"5","SelectionText", ""¬  openCard¬end if¬--end mouseUp¬
  118.  
  119. ItemType: PUSH
  120. Rect: 73,177,149,197
  121. AutoSize: FALSE
  122. Name: Unmark All
  123. Balloon: Click on this button to unmark all listed records.
  124. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬get wsGet(wdID,"5","Text")¬put it into cardsFound¬if cardsFound = empty or cardsFound = "no occurrences found..." then¬  beep¬else¬  unmark all cds¬  wsSet wdID,"11","Hilite", "FALSE"¬  wsSet wdID,"5","SelectionText", ""¬  openCard¬end if¬--end mouseUp¬
  125.  
  126. ItemType: TEXT
  127. Rect: 73,40,77,52
  128. TextFont: Geneva
  129. TextSize: 9
  130. Name: total found
  131. WhiteColor: -8739,-8739,-8739
  132. TextAlign: Center
  133. Balloon: The total number of records found.